gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\rgUserSucess.asp

     <TABLE cellSpacing = 0 cellPadding = 0 width = "100%" bgColor = #ffffff border = "0" style = "border-collapse: collapse" bordercolor = "#111111" ID = "Table1">
                                <TBODY>
                                <TR>
                                <TD bgColor = #FFFFFF>
<%
	dim strSQL, rsObj, cmdObj
	dim strPwd1, strPwd2, szMemberId
	strPwd1  =  Request.Form("password1")
	strPwd2  =  Request.Form("password2")
	szMemberId  =  RealString(Request.Form("memberID"))
	
	if Request.Form("memberID") = "" then
%>
	<script language = Javascript>
	<!--
	alert("用户名不能为空");
	window.history.go(-1);
	//-->
	                            </script>
<%
	Response.End
end if
strSQL = "SELECT memberID FROM member  WHERE memberID = '"& szMemberId &"'"
set rsObj = conn.execute (strSQL)
if not rsObj.eof then
%>
	<script language = Javascript>
	<!--
	alert("该用户名已存在，请重新选择用户名");
	window.history.go(-1);
	//-->
	                            </script>
<%
	Response.End
end if

if strPwd1<>strPwd2 then%>
	<script language = Javascript>
	<!--
	alert("密码、确认密码不同");
	window.history.go(-1);
	//-->
	                            </script>
<%
	Response.End
end if
       Set cmdObj  =  Server.CreateObject("ADODB.Command")
       Set rsObj  =  Server.CreateObject("ADODB.RecordSet")
       cmdObj.CommandText  =  "SELECT top 1 * FROM member ORDER by memberID desc"
       cmdObj.CommandType  =  adCmdText
       Set cmdObj.ActiveConnection  =  conn
       rsObj.Open cmdObj, , adOpenKeyset, adLockOptimistic
       rsObj.AddNew 
       rsObj("memberID")  =  Request.Form("memberID")	   
       rsObj("name")  =  Request.Form("name")
       rsObj("sex")  =  Request.Form("sex")
       rsObj("Pwd")  =  Request.Form("pwd")
       rsObj("question")  =  Request.Form("question")
       rsObj("answer")  =  Request.Form("answer")
       rsObj("email")  =  Request.Form("email")
       rsObj("phone")  =  Request.Form("phone")
       rsObj("address")  = Request.Form("address")
       rsObj("Zipcode")  =  Request.Form("Zipcode")
       rsObj.Update
       rsObj.Close
	   
       set rsObj = nothing
       CloseConn()
%>

<TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 
                  width = "100%" borderColorLight = #aaaaaa border = 1 ID = "Table2">
  <tbody> 
  <tr bgcolor = "#FFDBBD"> 
    <td colspan = 2 height = "26" bgcolor = "rgb(210,232,255)"> 
      <p align = "center"><b>您的注册信息</b></p>
    </td>
  </tr>
  <tr> 
    <td width = 84 align = "right" nowrap bgcolor = "rgb(210,232,255)"> 
      <div align = "right">会员帐号：</div>
    </td>
    <td width = "361"><%=Request.Form("memberID")%> 　</td>
  </tr>
  <tr> 
    <td width = 84 align = "right" nowrap bgcolor = "rgb(210,232,255)"> 
      <div align = "right">您的姓名：</div>
    </td>
    <td width = "361"><%=Request.Form("name")%> 　</td>
  </tr>
  <tr> 
    <td width = 84 align = "right" nowrap bgcolor = "rgb(210,232,255)"> 
      <div align = "right"><font color = "#000000">您的性别：</font></div>
    </td>
    <td width = "361"><%=Request.Form("sex")%>　 </td>
  </tr>
  <tr> 
    <td width = 84 align = "right" nowrap bgcolor = "rgb(210,232,255)"> 
      <div align = "right">会员密码：</div>
    </td>
    <td width = "361">（保密）</td>
  </tr>
  <tr> 
    <td width = 84 align = "right" nowrap bgcolor = "rgb(210,232,255)"> 
      <div align = "right">密码提问：</div>
    </td>
    <td width = "361"><%=Request.Form("question")%> 　</td>
  </tr>
  <tr> 
    <td width = 84 align = "right" nowrap bgcolor = "rgb(210,232,255)"> 
      <div align = "right">密码答案：</div>
    </td>
    <td width = "361"><%=Request.Form("answer")%> 　</td>
  </tr>
  <tr> 
    <td width = 84 align = "right" nowrap bgcolor = "rgb(210,232,255)"> 
      <div align = "right">电子邮件：</div>
    </td>
    <td width = "361"><%=Request.Form("email")%> 　</td>
  </tr>
  <tr> 
    <td width = 84 align = "right" nowrap bgcolor = "rgb(210,232,255)"> 
      <div align = "right">常用电话：</div>
    </td>
    <td width = "361"><%= Request.Form("phone")%> 　</td>
  </tr>
  <tr> 
    <td width = 84 align = "right" nowrap bgcolor = "rgb(210,232,255)"> 
      <div align = "right">收货地址：</div>
    </td>
    <td width = "361"><%=Request.Form("address")%> 　</td>
  </tr>
  <tr> 
    <td width = 84 align = "right" nowrap bgcolor = "rgb(210,232,255)"> 
      <div align = "right">邮政编码：</div>
    </td>
    <td width = "361"><%= Request.Form("Zipcode")%> 　</td>
  </tr>
  <tr> 
    <td colspan = "2" align = "right" nowrap> 
      <div align = "center">请记住您的帐号和密码，进入商场重新登录，再购买手机！ </div>
    </td>
  </tr>
  <tr bgcolor = "#FFDBBD"> 
    <td colspan = "2" align = "right" height = "26" nowrap bgcolor = "rgb(210,232,255)"> 
      <div align = "center"> 
        <input type = "button" value = " 进入商城购物 " name = "B4" onClick = "window.location.href = './';" style = "border: 1px solid #7D85A2; background-color: rgb(210,232,255); font-size:9pt" ID = "Button1">
      </div>
    </td>
  </tr>
  </tbody> 
</table></TD></TR>
</TBODY></TABLE>